home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 October / EnigmA AMIGA RUN 31 (1998)(G.R. Edizioni)(IT)[!][issue 1998-10].iso / linux / ghostscript-fonts-other-3.0.ta / fonts / hrgerd.gsf < prev    next >
Text File  |  1993-09-30  |  811b  |  24 lines
  1. %!
  2. /deriveHersheyFontGS993 where { pop save {restore} } { {} } ifelse
  3. /deriveHersheyFontGS993    % <newfontname> <uid> <xuid> <paintwidth>
  4.             %   <italicangle> <oldfontname>
  5. {    findfont dup length 1 add dict begin
  6.         {1 index /FID ne {def} {pop pop} ifelse} forall
  7.         FontInfo dup length dict copy begin
  8.             /ItalicAngle exch def
  9.         /FontInfo currentdict end def
  10.         Private dup length dict copy begin
  11.             /UniqueID 3 index def
  12.         /Private currentdict end readonly def
  13.         /FontMatrix [.001 0 FontInfo /ItalicAngle get neg sin 1000 div
  14.                  .001 0 0] def
  15.         /StrokeWidth exch 1000 28 div mul round cvi def
  16.         /XUID exch def
  17.         /UniqueID exch def
  18.         /FontName 1 index def
  19.     currentdict end definefont pop
  20. } def
  21. exec
  22. /Hershey-Gothic-English-SemiBold 5066544 [107 0 5066544]
  23.   1.5 0 /Hershey-Gothic-English deriveHersheyFontGS993
  24.